long fact_do(long n){
	long result=1;
	do{
		result*=n;
		n=n-1;
	}while(n>1);
	return result;
}
